Application.ExecuteCommand("Filter")
SelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Traces = true
SelectionFilterDlg.Ok.Click()
Application.StatusBarText = "Select Traces"
dim ws : set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\ApplicationMode", 1, "REG_EXPAND_SZ"
ws.RegWrite "HKEY_CURRENT_USER\Software\MyApp\PADS\Strentch", 0, "REG_EXPAND_SZ"
set ws = nothing